Function CleanInput(value)
If IsNull(value) Then
CleanInput = ""
Else
value = Trim(value)
If IsNumeric(value) Then
CleanInput = value ' Als Zahl zurückgeben
Else
value = Replace(value, "<", "<")
value = Replace(value, ">", ">")
value = Replace(value, """", "")
value = Replace(value, "'", "'")
CleanInput = value
End If
End If
End Function
Error 500 | topevents24.de
